home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc-old.dir / Internal_23_setMovie.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  750 b   |  26 lines
  1. on setMovie movieNumber
  2.   global gMovieMap, STclickLine, gSourcePath, gMovieBasePath
  3.   the itemDelimiter = ";"
  4.   movieFile = item movieNumber * 2 of line STclickLine + 4 of gMovieMap
  5.   case the machineType of
  6.     256:
  7.       importFileInto(cast(200), gMovieBasePath & movieFile)
  8.     otherwise:
  9.       importFileInto(cast(200), gSourcePath & movieFile)
  10.   end case
  11.   the itemDelimiter = ","
  12.   repeat with n = 1 to the maxinteger
  13.     case the machineType of
  14.       256:
  15.         if member(200).fileName = (gMovieBasePath & movieFile) then
  16.           exit repeat
  17.         end if
  18.       otherwise:
  19.         if member(200).fileName = (gSourcePath & movieFile) then
  20.           exit repeat
  21.         end if
  22.     end case
  23.   end repeat
  24.   member(200).pausedAtStart = 1
  25. end
  26.